;;; -*- Mode:LISP; Package:USER; Base:10 -*-


(setq *machines-and-dirs*
      '(("DJ" "DAWNA")
        ("lam15"
         "AI"
         "bob" "gjc" "gjc-test" "TI-IKE"

         "devoy" "dwr" "agh" "brian"

         "pic" "picon-demos" "picon-kb"

         "pike-1" "picon-class" "picon-class-distribution")))


(dolist (e *machines-and-dirs*)
  (putprop (si:parse-host (car e)) (cdr e) 'DIRECTORIES-TO-BACKUP))
